#!/usr/bin/perl

use warnings;
use strict;

use WWW::Mechanize;
use Data::Dumper;

my $mech = WWW::Mechanize->new();
$mech->proxy(['http', 'ftp'], 'http://128.1.21.80:3128/');
$mech->agent_alias( 'Windows IE 6' );
$mech->get("http://freshmeat.net/login");

$mech->field( "user_session[login]", "jmrenouard", 1);
$mech->field( "user_session[password]", "xxxx", 1);
$mech->submit;

my $lg_f=$mech->submit_form(form_number =>1);
$mech->get("http://freshmeat.net/projects/myrpm/releases.json");
print $mech->content;

print "\n", 'X'x80, '\n';
$mech->get ("http://freshmeat.net/projects/myrpm/urls.json");
print $mech->content;

print "\n", 'X'x80, '\n';


exit 0;
